Top 10k strings from Begin - Noughts and Crosses (1985)(16-48 Tape Magazine)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 ))+b(l(w,3
   4 ))+b(l(w,2
   3 g$="human"
   2 lines=lines+1
   2 initialise
   1 who starts?
   1 vertical lines
   1 update screen
   1 update display
   1 start with human move
   1 square numbers.
   1 spectrum move.
   1 spectrum go
   1 soon triumphant
   1 set blanks
   1 random move
   1 opponent forks?
   1 opponent blocked
   1 look for winner
   1 look for block
   1 if you get here then a random move will have to do.
   1 if only one blank then fill it.
   1 human move
   1 horizontal lines
   1 g$="spectrum"
   1 fork foiled.
   1 finish with winner.
   1 end program.
   1 draw marks
   1 count lines with one blank and two of our pieces.
   1 count lines with one blank and two of opponents pieces.
   1 check if full
   1 check for winner.
   1 check for winner
   1 blanks=blanks+1
   1 array b=board.                        0 for blanks,                   1 for computer,                 -1 for human.         array l=the set of 8 rows       of three positions in line.
   1 a$="YOU WIN"
   1 a$="SPECTRUM WINS"
   1 STOP THE TAPE
   1 RUN THE TAPE
   1 PRESS ANY KEY
   1 BEGIN     
   1 ;"Do you want to go first?((y/n)"
   1 ;"Another game?(y/n)"
   1 ''"This month an example of how to get the computer to play a game against you."''"The algorithm used to calculate the computer's moves are not themost effective and the Spectrum can be beaten."
   1 ''"The program has REMs throughout and you may find that with some thought you can persuade it to  play a stronger game."
   1 '"Have go and then examine the    listing if you are curious."
   1 "Enter square";n
   1  NOUGHTS AND CROSSES